Mission to McDonaldLand/Mission To McDonaldLand.iso/code.cst/00003_Script_OPEN

Text File | 1998-10-29 | 5KB | 143 lines

on enterFrame
  global heading
  global move
  global updown
  global silly
  global silly2
  global nomore
  global CStop
  global castrestore
  global restoration

  if CStop = 1 then
    if the mouseH < the locH of sprite 30 then set the member of sprite 30 = "Left"
    if the mouseH > the locH of sprite 30 then set the member of sprite 30 = "Right"
    abort
  end if

  if silly > 0 then abort
  if silly2 > 0 then abort

  if the mouseV < 270 or the mouseH > the locH of sprite 30 - 20 and the mouseH < the locH of sprite 30 + 20 then
    if heading = 1 then set the member of sprite 30 = "Left"
    if heading = 2 then set the member of sprite 30 = "Right"
    set move = 0
  end if

  if the mouseH > the locH of sprite 30 + 19 and the mouseV > 270 then
    set the member of sprite 30 = "Walk Right"
    set heading = 2
    set move = 1
    set the locH of sprite 30 = the locH of sprite 30 + 15
  end if

  if the mouseH < the locH of sprite 30 - 19 and the mouseV > 270 then
    set the member of sprite 30 = "Walk Left"
    set heading = 1
    set move = 1
    set the locH of sprite 30 = the locH of sprite 30 - 15
  end if

  if the mouseV > the locV of sprite 30 and the mouseV < the locV of sprite 30 + 50 then
    if move = 0 and heading = 1 then set the member of sprite 30 = "Left"
    if move = 0 and heading = 2 then set the member of sprite 30 = "Right"
    set updown = 0
  end if

  if the mouseV < the locV of sprite 30 then
    if the locV of sprite 30 > 300 then
      if move = 0 and heading = 1 then set the member of sprite 30 = "Walk Left"
      if move = 0 and heading = 2 then set the member of sprite 30 = "Walk Right"
      set the locV of sprite 30 = the locV of sprite 30 - 5
      set updown = 1
    end if
  end if

  if the mouseV > the locV of sprite 30 + 50 then
    if the locV of sprite 30 < 350 then
      if move = 0 and heading = 1 then set the member of sprite 30 = "Walk Left"
      if move = 0 and heading = 2 then set the member of sprite 30 = "Walk Right"
      set the locV of sprite 30 = the locV of sprite 30 + 5
      set updown = 1
    end if
  end if

  if the locH of sprite 30 > 600 then
    set the locH of sprite 30 = 50
    set the member of sprite 30 = "blank"
    set nomore = 0
    set restoration = 0
    set castrestore = 0
    puppetTransition 11, 1, 30, TRUE
    go next
    set the member of sprite 30 = "Walk Right"
  end if

  if the locH of sprite 30 < 40 then
    set the locH of sprite 30 = 590
    set the member of sprite 30 = "blank"
    set nomore = 0
    set restoration = 0
    set castrestore = 0
    puppetTransition 12, 1, 30, TRUE
    go previous
    set the member of sprite 30 = "Walk Left"
  end if

end


on rightMouseDown
  global silly
  global silly2
  global heading
  global CStop
  if CStop = 1 then abort
  if the mouseH > the locH of sprite 30 - 60 and the mouseH < the locH of sprite 30 + 60 and silly < 1 then
    if heading = 1 then
      set the locH of sprite 30 = the locH of sprite 30 + 16
      set the locV of sprite 30 = the locV of sprite 30 - 14
      set the member of sprite 30 = "backflipL"
    end if
    if heading = 2 then
      set the locH of sprite 30 = the locH of sprite 30 - 16
      set the locV of sprite 30 = the locV of sprite 30 - 14
      set the member of sprite 30 = "backflipR"
    end if
    set silly = 1
  end if

  if silly2 < 1 and (the mouseH < the locH of sprite 30 - 60 or the mouseH > the locH of sprite 30 + 60) then
    set silly2 = 1
    set the locV of sprite 30 = the locV of sprite 30 - 15
    if heading = 2 then set the member of sprite 30 = "cartwheelR"
    if heading = 1 then set the member of sprite 30 = "cartwheelL"
  end if
end


on exitFrame
  global silly
  global silly2
  global heading
  if silly > 0 then set silly = silly + 1
  if silly > 12 then
    set silly = 0
    if heading = 1 then set the locH of sprite 30 = the locH of sprite 30 + 50
    if heading = 2 then set the locH of sprite 30 = the locH of sprite 30 - 50
    set the locV of sprite 30 = the locV of sprite 30 + 14
  end if
  if silly2 > 0 then
    if heading = 2 then set the locH of sprite 30 = the locH of sprite 30 + 20
    if heading = 1 then set the locH of sprite 30 = the locH of sprite 30 - 20
    set silly2 = silly2 + 1
  end if

  if silly2 > 10 then
    set silly2 = 0
    set the locV of sprite 30 = the locV of sprite 30 + 15
  end if

  go the frame

end